0 REM MAHJONG BOOT * RBCOOK * 10.93
100 IFDV<>0THEN130
110 DV=PEEK(186):IFDV<8THENDV=8
120 GOSUB60000:LOAD"OBJ.MAHJONG",DV,1
130 SYS4608
140 POKE53280,1:POKE53281,1:POKE198,0
150 PRINT"[147]"TAB(7)"[152][\\\\\\\\\\\\\\\\\\\\\\\]"
160 PRINTTAB(7)"#     M A H J O N G     [152]$[144]@"
170 PRINTTAB(7)"[152]&+++++++++++++++++++++++'[144]@"
180 PRINTTAB(7)"[152]#                       $[144]@"
190 PRINTTAB(7)"[152]# F1 [144]SOLITAIRE GAME     [152]$[144]@"
200 PRINTTAB(7)"[152]# F3 [144]NEW TOURNAMENT     [152]$[144]@"
210 PRINTTAB(7)"[152]# F5 [144]RESTART TOURNAMENT [152]$[144]@"
220 PRINTTAB(7)"[152]# F7 [144]TOURNAMENT GAME    [152]$[144]@"
230 PRINTTAB(7)"[152]# F8 [144]RETURN TO LOADSTAR [151]$[144]@"
240 PRINTTAB(7)"[152]#                       $[144]@"
250 PRINTTAB(7)"[152]^!!!!!!!!!!!!!!!!!!!!!!!_[144]@"
260 PRINTTAB(7)"[144] @@@@@@@@@@@@@@@@@@@@@@@@@":IFA$="[133]"THEN300
270 PRINTTAB(14)"[151]PLAYER UP%[150]"A+1+(A=8)*8""
280 FORL=1TO7STEP2:PRINTTAB(4)"[144]PLAYER[152]"L"[157][144]%[154]"SC(L);
290 PRINTTAB(22)"[144]PLAYER[152]"L+1"[157][144]%[154]"SC(L+1):NEXT
300 GETA$:IFA$="[133]"THENSYS4614:GOTO140
310 IFA$="[134]"THENPOKE253,0:POKE254,0:SYS4614:FORL=1TO8:SC(L)=0:NEXT:A=0:GOTO360
320 IFA$="[135]"THENSYS4614:A=0:GOTO360
330 IFA$="[136]"THENSYS4618:GOTO360
340 IFA$="[140]"THEN40000
350 GOTO300
360 A=A+1+(A=8)*8:SC(A)=SC(A)+PEEK(252)*256+PEEK(251):GOTO140
10000 OPEN15,8,15,"S0:MAHJONG BOOT":CLOSE15:SAVE"MAHJONG BOOT",8:END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
60000 POKE53280,0:POKE53281,0:PRINT"[147]"
60010 Z$=" [152]                                      ":POKE214,10:PRINT
60020 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60030 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60040 Z$(0)="  [205] [193] [200] [202] [207] [206] [199]":Z$(1)="  BY [210]OBERT [194]. [195]OOK"
60050 Z$(2)="([195]) 1994 BY [211]OFTDISK [208]UBLISHING"+CHR$(13)
60060 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK"
60070 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
60080 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60090 Z$(6)="[210]EPORT ILLEGAL DISTRIBUTION OF":Z$(7)="THIS PROGRAM BY CALLING"
60100 Z$(8)="1-800-831-2694 OR 1-318-221-8718.":POKE214,12:PRINT
60110 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT
60120 PRINT"":RETURN